home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Prog / T / Think-Pascal-7.0.cpt / THINK Pascal Interfaces / CRMSerialDevices.p < prev    next >
Encoding:
Text File  |  1991-04-03  |  1.1 KB  |  68 lines  |  [TEXT/PJMM]
  1. {    This file has been processed by The THINK Pascal Source Converter, v1.1.    }
  2.  
  3. {
  4. Created Tuesday, May 10 1989 at 6:00 AM
  5.     CRMSerialDevices.p
  6.     Pascal Interface to the Communications Resource Manager Serial Device Utilities
  7.     
  8.     Copyright Apple Computer, Inc.     1988-90
  9.     All rights reserved
  10. }
  11. {$IFC UNDEFINED UsingIncludes}
  12. {$SETC UsingIncludes := 0}
  13. {$ENDC}
  14.  
  15.  
  16.     UNIT CRMSerialDevices;
  17.     INTERFACE USES    Types;
  18.  
  19.  
  20.  
  21.  
  22.  
  23.  
  24.  
  25.  
  26.  
  27.  
  28.  
  29.  
  30.  
  31.  
  32. CONST
  33.  { crmDeviceType}
  34.     crmSerialDevice        =    1;
  35.                     
  36.     curCRMSerRecVers     =     1;
  37.  
  38.  
  39. TYPE
  40.     CRMIconHandle    = ^CRMIconPtr;
  41.     CRMIconPtr        = ^CRMIconRecord;
  42.     CRMIconRecord    = RECORD
  43.         oldIcon        : ARRAY [0..31] OF LONGINT;        { 'ICN#' data & mask    }
  44.         oldMask        : ARRAY [0..31] OF LONGINT;
  45.         theSuite    : Handle;                        { IconSuite handle        }
  46.         reserved    : LONGINT;
  47.     END;
  48.  
  49.     CRMSerialPtr = ^CRMSerialRecord;
  50.     CRMSerialRecord = RECORD
  51.         version                : INTEGER;
  52.         inputDriverName        : StringHandle;
  53.         outputDriverName    : StringHandle;
  54.         name                : StringHandle;
  55.         deviceIcon            : CRMIconHandle;
  56.         ratedSpeed            : LONGINT;
  57.         maxSpeed            : LONGINT;
  58.         reserved            : LONGINT;
  59.     END;
  60.  
  61.  {UsingCRMSerialDevices}
  62.  
  63.  
  64.     IMPLEMENTATION
  65. END.
  66.  
  67.  
  68.